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AAAAAAAAA 

AAAAAAAAA 
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PPPPPPPP AAAAAA SSSSSSSS_ MM MA SSSSSSSS GGGGGGGG TTTTTTTTTT xx XX TTTTTTTTTT 
PP PP AA AA SS MMMM MMMM SS GG TT XX XX TT 
Pp PP AA AA SS MMMM MMMM SS GG TT XX XX TT 
PP PP AA AA SS MM MM MM SS GG TT XX XX TT 
PP PP AA AA SS MM MM MM SS GG TT XX XX TT 
PPPPPPPP AA AA SSSSSS MM MM SSSSSS GG TT XX TT 
PPPPPPPP AA AA SSSSSS MM MM SSSSSS GG TT XX TT 
imag AAAAAAAAAA SS MM MM SS GG 6GG6G6G6GG TT XX Xx TT 
PP AAAAAAAAAA SS MM MM SS GG 6GGGG6GG TT XX XX TT | 
PP AA AA SS MM MM ss &G G TT XX XX TT ewes | 
PP AA AA SS MM MM SS GG GG TT XX XX TT o<an 
PP AA AA SSSSSSSS MM MM SSSSSSSS GGGGGG TT XX XX TT sade | 
PP AA AA SSSSSSSS MM MM SSSSSSSS GGGGGG TT XX XX TT anes 
LL III] SSSSSSSS 
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LL I] SS 
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LL II SSSSSS 
LL II SSSSSS 
LL II SS 
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LL I] SS 
LL II SS 
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| PASMSG Message definitions 19-55 198 01:19: VAX=11 Deseege 105-00 

| 6-SEP-1984 11:34:14 DISKSVMSMASTER:CPASRTL.SRCJPASMSG.MSG;1 
-TITLE PASSMSGDEF VAX=11 Pascal Run-Time Messages 
SIDENT '1=004" ! File PASMSG. MSG, Edit: $BL.1004 


| 


PORES SSSSSSSSS SESE TESST TET TTT e Cece e ec cece ces cect ec icc c eee ricci cic ai iii 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


:@ pL SOFTWARE IS FURNISHED wore A LICENSE AND MAY BE USED AND og LA 
1 Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE Ss ' de 


® 
* 
® 
t 
® 
® 
ie INC T NOTIC FTW 0 . 
is COPIES THEREOF MAY NOT BE PROVIDED Ok OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. " 
2 oe 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ix AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 

® 
ie DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* 

& 

® 


Le R EEE 


FACILITY: VAX=11 Pascal Run-Time Library 
ABSTRACT: 


This module contains the message definitions for VAX-11 Pascal V2 
Run-Time messages. 


AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


1-001 = Original. SBL 1 Ser its -1981 

1-002 - Remove PASS_ IN VFIE PE since it is no longer used. SBL 2-July-1982 

1-003 - Reserve mesSage numbers 3000-3999 for SeaPascal. SBL 25-Mar-1983 

1-004 - Change text of BUGCHECK to refer to User's Guide. SBL 17-Aug-1983 
00000021 «FACILITY PAS,33 /SYSTEM 


i NOTE: Ths VAX-11 Pascal V1 Run-Time Library used message numbers between 
32 and 128. To avoid conflicts, start VAX-11 Pascal V2 numbers at 200. 


' 

! Messages 201 to 999 are 1/0 errors which can be continued by means of 
Error:=Continue in the Pascal statement. 
' 


BILE WN  O OONAUE WN 0 OD NAUE WN $9 ODNOAU EWN OO OONAUE WR OODONOUS WR 


PUPP PVs Bs BES EE BB BB ANNA NANAINAIPPOPONONINOPINNIDD 2 2 OO SS OS 


The STATUS return value is <message_number - 200> 
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Cc 9 
PASSMSGDEF VAX-11 Pascal Run-Time Messa 197 35e- 1386 91:19:59 VAX=11 pessege 105-00 = 
6-SEP=1984 11:34:14 DISKSVMSMASTER:CPASRTL.SRCJPASMSG.MSG; 1 
7 1 
af [ wkereeeeeeeereteeeeee NOTE eeeeeeereneeeeeeeeeerenee 
59 ! * For messages 201-999, which all have the PFV. * 
60 ! * address placed as the first FAO argument, the * 
61 ! * FAO control esr ing MUST include the ‘'!+"' edit * 
6¢ ! * directive as the irst directive in the string. * 
65 ! * Failure to do this will result in the PFV * 
64 ! * being used incorrectly in the result text * 
65 ' RRRRRERATERRERE EERE HATER TER ERE EERE REET RR ERE EES 
66 ! 
68 SEVERITY FATAL 
69 
70 !+ 
4 t Messages from OPEN and CLOSE. 
rg! -BASE 200 
00218644 fe BASE <> ! Never signalled 
0021864C 76 F ILALROPE <file is already open!+!/ File ‘!AC"' Filename ‘'!AS''>/FAO_COUNT=3 
aA eLITERAL PAS$K_F ILALROPE=(PAS$_F ILALROPE-PAS$_BASE)a-3 
00218654 79 ERRDUROPE <error during OPEN!+!/_ File “!AC'' Filename _‘'!AS*'>/FAO_COUNT=3 
rs »LITERAL PASS$K_ERRDUROPE=(PAS$_ERRDUROPE=-PAS$_BASE) a-3 
0021865C 82 bag te <file not found!+!/ File ‘!AC’' Filename ‘*!AS''>/FAO_COUNT=3 
Hi LITERAL PASSK_F ILNOTFOU=(PAS$_ FICNOTFOU-PASS BASE) a-3 
00218664 85 INVFILSYN <invalid filename SS FIL File "!AC'' Filename ‘'!AS''>/FAO COUNT | 
Hy »LITERAL PASSK_INVFILSYN=(PASS$_INVF ILSYN-PAS$_BASE)a-3 
0021866C 88 ACCMETINC <ACCESS_METHOD specified is incompatible with this file!+!/ File oe 
+4 eLITERAL PASS$K _ACCMETINC= (PAS$_ACCMETINC=PAS$_BASE)a-3 
00218674 91 RECLENINC <RECORD_LENGTH specified is inconsistent with this file!+!/ File vn | 
4 »LITERAL PASS$K _RECLENINC= (PAS$_RECLENINC-PAS$_BASE)a-3 | 
0021867C 94 RECTYPINC <RECORD_TYPE specified is inconsistent with this file!+!/ File “IAC | 
32 LITERAL PAS$K_RECTYPINC=(PAS$_RECTYPINC-PAS$ .SASE) a-3 | 
00218684 97 ORGSPE INC <ORGANIZATION specified is inconsistent with this file!+!/ File ‘"!A 
4: »LITERAL PAS$K_ORGSPE INC=(PAS$_ORGSPE INC-PAS$_BASE)a-3 
0021868C 100 INVKEYDEF <invalid key definition!+!/ File "!AC'’ Filename °'!AS*'>/FAO_COUNT= 3) 
13) eLITERAL PASSK_INVKE DEF =(PASS$_INVKEYDEF -PAS$_BASE)a-3 
00218694 198 KEYDEF INC <KEY(!+!UL) definition is inconsistent with this file'/ File ‘‘!AC'’ 
ie »LITERAL PASSK_KEYDEF INC=(PAS$_KEYDEF INC-PAS$_BASE)a-3 
0021869C 106 KE YNOTDEF <KEY(!+!UL) is not defined in this file!/ File "!AC’’ Filename ‘!AS 
104 »LITERAL PASS$K_KEYNOTDEF =(PAS$_KEYNOTDEF -PAS$_BASE )a-3 
002186A4 109 INVRECLEN <invalid record length of !#!UL!/ File “!AC'’ Filename **!AS*'>/FAO_C 
49 eLITERAL PASSK. INVRECLEN= (PA $_INV VRECLEN-PASS. _BASE)a-3 
002186AC 116 TEXREQSEQ textfiles require sequential organization and access'+'/ File ““!AC | 
11 »LITERAL PASSK _TEXREQS Q= (PASS$_TEX REQSEQ- AS$_BASE)a-3 


we e 


—_—— 


VAX-11 Pascal Run-Time Messa 16- 


00218684 


002186BC 


0021864 


00218734 


0021873C 


00218744 


0021874C 


00218754 


0021875C 


00218764 


002187D4 


002187E4 


002187EC 


002187F4 


9 
P=1984 01:20:01 VAX=11 Message v04-00 Pa 3 PA 
P=1984 49839) DISKSVMSMASTER: LPASRTL. SRCIPASMSG.MSG; 1 rer 


DODNOA NE WN 0 OONAU EWN OS OD NA UE WWM 0 ODNAUE WN CO OONOUS WN OUWOONOUS 


Oe a ee et ee ee ee ee ed dd dd 
SDD DDD D> DDD DET TT BS BS ES BS BS BE AAAI NIAAA NIIP NOPNPNPUN SS SO 


FILNAMREQ <FILE NAME feoy' red for this HISTORY or DISPOSITION!+!/ File "IAC". 
LITERAL PASSK_F ILNAMREQ=(PASS$_F ILNAMREQ-PAS$_BASE) a-3 
FILALRCL <file is already closed!+!/ File ‘"!AC'’ Filename ''!AS''>/FAO_COUNT=3 
LITERAL PASSK_F ILALRCLO=(PAS$_F ILALRCLO-PAS$_BASE)a-3 
ERRDURCL <error ane CLOSE!+!/ File ‘"!AC’’ Filename ‘'!AS''>/FAO_COUNT=3 
«LITERAL PASSK_ERRDURCLO=(PAS$_ERRDURCLO-PAS$_BASE) a-3 

S¢@ 

Textfile READ errors. 

-BASE 230 
AMBVALENU <!+""!AS"' is an ambiguous value for enumerated type ""!AC''!/ Record 1 
sLITERAL PAS$K_AMBVALENU=(PAS$_AMBVALENU=PAS$_BASE) a-3 
INVSYNENU <!+""tAD"' is invalid syntax for an enumerated value!/ Record !UL Fi 
LITERAL PAS$K_INVSYNENU=(PAS$_INVSYNENU=PAS$_BASE)a-3 

| 

INVSYNINT <'+""tAS"' is invalid syntax for an integer value!/ Record 'UL File | 
LITERAL PASSK_INVSYNINT=(PAS$_INVSYNINT=PAS$_BASE) @-3 | 
INVSYNREA <!+"tAS"' is invalid syntax for a real value!/ Record !UL File “"!AC. 
-LITERAL PAS$K_INVSYNREA=(PAS$_INVSYNREA=PAS$_BASE) a-3 
INVSYNUNS <!+"!AD'' is invalid syntax for an unsigned value!/ Record 'UL File 
-LITERAL PAS$K_INVSYNUNS=(PAS$_INVSYNUNS~PAS$_BASE)a-3 | 
NOTVALTYP <!+""tAS"' is not a value of type "MAC''!/ Record !UL File ‘*!AC'’ FAL 
-LITERAL PAS$K_NOTVALTYP=(PAS$_NOTVALTYP=PAS$_BASE)a-3 
ERRDURPRO <error Gur'ing pronetin '+!/ File "!AC*' Filename *'!AS''>/FAO_COUNT=3 | 
-LITERAL PAS$K_ERRDURPRO=(PAS$_ERRDURPRO-PAS$_BASE)a-3 


+ 
Textfile WRITE errors. 


-BASE 250 

ERRDURWRI <error during WRITELN!+!/ File “!AC’’ Filename *'!AS''>/FAO_COUNT=3 
eLITERAL PASS$K_ERRDURWRI=(PAS$_ERRDURWRI-PAS$_BASE)a-3 

! Message 251 is no longer used - available for reuse 

-BASE 252 
LINTOOLON <Line is too bong exceeded record length by_!+#!UL character!%S!/ F. 
LITERAL PAS$K_LINTOOLON=(PAS$_LINTOOLON-PAS$_BASE)a-3 

NEGWIDDIG <negative Width or Digits specification is not allowed!+!/ File ‘"!A 
+LITERAL PASSK_NEGWIDDIG=(PAS$_NEGWIDDIG-PAS$_BASE)a- 
WRI INVENU <WRITE of an invalid enumerated value'+!/ File “!AC’’ Filename ‘‘!AS | 
LITERAL PASS$SK_WRI INVENU=(PAS$_WRI INVENU-PAS$_BASE)a-3 


' 
} 


—_-—_---—- oe 


9 
| PASSMSGDEF VAX=-11 Pascal Run-Time Messa 16- ~eeen 1 a8 91:90:08 VAX-11 Deseege 04-00 Page 4 
66-SEP-1984 11:34:14 DISKSVMSMASTER: CPASRTL.SRCJPASMSG.MSG; 1 
i 
| 158 1 
re Direct and Keyed access errors. 
| 176 .BASE 270 
| 00218874 178 wth it tg <key value is ingoneet tible with this file's key !+!UL!/ File “‘!AC"’ 
4 LITERAL PASSK_KEYVALINC=(PAS$_KEYVALINC-PAS$ BASED a-3 
0021887C 181 KEYDU a <key field duplication is not allowed!+!/ File "!AC’' Filename ‘!AS 
18¢ -LITERA PASSK_KEYDUPNOT=(PAS$_KEYDUPNOT=PAS$_BASE)a-3 
00218884 184 KEYCHANOT <key field change is not allowed!+!/ File "!AC’' Filename "!AS'>/FA 
13? LITERAL PASSK_KEYCHANOT=(PAS$_KEYCHANOT=PAS$_BASE)a-3 
0021888C 187 CURCOMUND <current component is undefined for DELETE or UPDATE!+!/ File “‘!AC’’ 
138 »LITERAL PAS$K_CURCOMUND=(PAS$_CURCOMUND=PAS$_BASE)a-3 
00218894 190 FAIGETLOC <failed to GET locked component!+!/ File "!AC’' Filename ‘'!AS*'>/FAO 
131 LITERAL PAS$K_FAIGETLOC= (PASS. FAIGETLOC-PAS$_BASE)a-3 
198 
194 !+4 
195 ! Miscellaneous errors. 
196 i- 
13% .BASE 300 
00218964 199 DELNOTALL <DELETE is not allowed for a sequential or anization file!+!/ File 
soe »LITERAL PAS$K_DELNOTALL=(PAS$_DELNOTALL=PAS$_BASE)a-3 
0021896C 202 ERRDURDEL <error during DELETE!+!/ File “!AC'’ Filename ‘*!AS''>/FAO_COUNT=3 
soe »LITERAL PAS$K_ERRDURDEL=(PAS$_ERRDURDEL-PAS$_BASE) a-3 | 
00218974 205 ERRDURF IN <error during FIND or FINDK!+!/ File “!AC’’ Filename ‘'!AS''>/FAO_COU 
$09 »LITERAL PASS$K_ERRDURF IN=(PAS$_ERRDURF IN-PAS$_BASE )a-3 
0021897C 208 ERRDURGET <error during GET!+!/ File “"!AC'’ Filename ‘"!AS''>/FAO_COUNT=3 
343 eLITERAL PAS$K_ERRDURGE T=(PAS$_ERRDURGET-PAS$_BASE )a-3 
00218984 211 ERRDURPUT <error during PUT!+!/ File “"!AC'’ Filename ‘"!AS''>/FAO_COUNT=3 
sig »LITERAL PASSK_ERRDURPUT=(PAS$_ERRDURPUT=PAS$_BASE )a-3 
0021898C si¢ ERRDURRES <error eth RESET or RESETK!+!/ File ‘!AC’ Filename "*!AS''>/FAO_C 
$12 eLITERAL PASSK_ERRDURRES=(PAS$_ERRDURRES~PAS$_BASE )a-3 
00218994 217 ERRDURREW <error during REWRITE!+!/ File “"!AC’’ Filename ‘*!AS''>/FAO_COUNT=3 
$18 LITERAL PASSK_ERRDURREW=(PAS$_ERRDURREW-PAS$_BASE )a-3 
0021899C $39 ERRDURTRU <error during TRUNCATE!+!/ File “!AC'* Filename **!AS''>/FAO_COUNT=3 
$s! »LITERAL PASSK_ERRDURTRU=(PAS$_ERRDURTRU-PASS$_BASE)a-3 
002189A4 228 ERRDURUNL <error during UNLOCK!+!/ File “!AC'’ Filename ‘*!AS''>/FAO_COUNT=3 
35 »LITERAL PASS$K_ERRDURUNL =(PAS$_ERRDURUNL-PAS$_BASE )a-3 
002189AC $ 6 ERRDURUPD <error Surin UPDATE!+!/ File “!AC’’ Filename ‘'!AS'>/FAO_COUNT=5 
2e7 eLITERAL PASSK_ERRDURUPD=(PAS$S_ ERRDURUPD-PASS_ BASE)a-3 


———————__—______—- 


PASSMSGDEF 
8 
00218984 ; 
i 
0021898C 35 
4 
002189¢4 36 
237 
002189CC 238 
44 
40 
00218904 241 
seg 
24 
002189DC 244 
245 
246 
002189E4 247 
248 
$e2 
002189EC 50 
251 
$26 
002189F4 25 
254 
255 
002189FC 256 
257 
258 
00218A04 259 
260 
261 
00218A0C 262 
263 
264 
00218A14 265 
266 
267 
00218A1C 268 
269 
270 
00218A24 sf 
75 
27 
00218A2C 8274 
75 
76 
00218A34 77 
278 
79 
80 
8} 
88 14 
84 ! 


ae 


INSNOTALL 
»LITERAL 


INSVIRMEM 
«LITERAL 


INVARGPAS 
LITERAL 


LINVALEXC 
» LITERAL 


REWNOTALL 
»LITERAL 


RESNOTALL 
- LITERAL 


TRUNOTALL 
LITERAL 


UPDNOTALL 
»-LITERAL 
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<file is not opened for direct access'+!/ File ‘!AC'' Filename ‘!AS 

PASSK_F ILNOTDIR=(PAS$_F ILNOTDIR-PAS$_BASE)a-3 

<file is not in Generation mode!+!/ File “!AC’’ Filename ‘'!AS'>/FAO 

PASSK_F ILNOTGEN= (PAS$_FILNOTGEN-PASS$_ BASE) a-3 

<file is not in Inspection mode!+!/ File ‘!AC’’ Filename ‘'!AS'’>/FAO 
PASSK_FILNOTINS = (PASS. FILNOTINS “pass BASE) a-3 

<file is not peers ned for keyed access!+!/ File “!AC'' Filename ‘"!AS‘' 
PASSK_F ILNOTKEY=(PAS$_F ILNOTKEY=PAS$ BASE) a-3 

<file is not Hs '/ File "!AC'’ Filename ‘'!AS*'>/FAO_COUNT=3 

PASSK_F ILNOTOPE=(PASS$_F ILNOTOPE=-PAS$_BASE)a-3 

<file is not se equential organization!+!/ File “!AC’’ Filename ‘"!AS"’ 
PASS$K_F ILNOTSEQ=(PAS$_F ILNOTSEQ-PAS$_BASE)a-3 

<file is not_a textfile!+!/ File “!AC'' Filename ‘'!AS''>/FAO_COUNT=3 

PASS$K _FILNOTTEX= (PASS. F ILNOTTEX=PAS$_BASE)a-3 | 
<Generation mode is not allowed for a READONLY file!+!/ File ‘!AC"’ 
PAS$K_GENNOTALL=(PAS$_GENNOTALL=PAS$_BASE)a-3 

<GET aCe TAR TED after end-of-file!+!/ File “!AC’’ Filename ‘"!AS'>/FA 
PASSK_GETAF TEOF=(PAS$_GETAF TEOF -PAS$_BASE) a-3 

<Inspection mode is not allowed for a WRITEONLY file!+!/ File ‘!AC"’ 


PASS$SK_INSNOTALL=(PASS$_INSNOTALL=PAS$_BASE)a-3 


<insufficient virtual memory!+!/ File ““!AC'’ Filename ‘"!AS'>/FAO_CO 
PASSK_INSVIRMEM=(PAS$_INSVIRMEM=PAS$_BASE)a-3 


<invalid argument to Pascal Run-Time Library!+!/ File ‘!AC’’ Filena 
PAS$K_INVARGPAS=(PAS$_INVARGPAS-PAS$_BASE)a-3 


<LINELIMIT value exceeded'+!/ File "!AC'' Filename ‘'!AS'>/FAO_COUNT | 


PAS$K_LINVALEXC=(PAS$_LINVALEXC-PAS$_BASE)a-3 


<REWRITE is not allowed for a shared file'+!/ File “!AC’’ Filename 
PAS$K_REWNOTALL=(PAS$_REWNOTALL-PAS$_BASE)a-3 


<RESET is not allowed on an unopened internal file!+!/ File "‘!ACc’’ 
PAS$K_RESNOTALL=(PAS$_RESNOTALL=PASS$_BASE)a- 


<TRUNCATE is not allowed for a shared file'+!/ File “!AC’’ Filename 
PASS$K_TRUNOTALL=(PAS$_TRUNOTALL~PAS$_BASE)a-3 


<UPDATE is not allowed for a sequential of anization file!+!/ File 
PAS$K_UPDNOTALL=(PAS$ “UPDNOTALL PASS BASE) a-3 


Message numbers 1000-1999 are for messages without a valid PFV. 
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run-time, 


ERRDURREL 
GOTO 
GOTOFAILED 
HALT 
BUGCHECK 


NEGDIGARG 
CONTINUE 


Exception 


SS$_OPCDEC 
$$$_SUBRNG 
5S$~INTOVE 


-BASE 
ARRINDVAL 


ORDVALOUT 


»LITERAL 


X-11 Message v04-00 
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P=-1984 01:20:06 VA Pa 
eats 7 91 42:96 DISKSVMSMASTER:CPASRTL.SRCJPASMSG.MSG; 1 ” 


1000 

<invalid file variable at location !XL>/FAO_COUNT=1 

<file "!AC’’ is already active>/FAO_COUNT=1 

<error during NEW> 

<error during DISPOSE> 

<error during MARK> 

<error during RELEASE> 

<non=-local GOTO requested! +!+>/FA0=2 

<non=local GOTO failed> , 

<HALT procedure called> ; 

<internal consistency failure !UL in Pascal Run-Time Library!/ 
<negative Digits argument to BIN, HEX or OCT is not allowed> 
<1/0 error dismissed by user handler! +>/FAO=1 


Messages 2000 and up are for errors detected in the compiled code at 
The compiled code has in the instruction stream a ate value 

(0-63) which denotes the specific message to signal (2000-2063). 

particular exception conditions recognized by PAS$HANDLER as being 

run-time error checking exceptions, and the {o 

are as follows: 


The 
cations of the code byte, 


Instruction Code byte location 

HALT -BYTE after HALT 

INDEX TSTB #x (current instruction) 
any TSTB #x (current instruction) 
2000 


<array index value is out of range> 

<conformant array is not compatible> 

<conformant array is not a string> 

<CASE selector value is out of range> 

<string concatenation has more than 65535 characters> 
<PAD length error> 

<pointer reference to NIL> 

<set assignment value has element out of range> 

<set constructor value is out of range> 

<string assignment length error> 

<strings comparison songee error> 

<subrange assignment value is out of range> 

<SUBSTR selection error> 

<varyin 


index value is greater than current length> 
<ordina 


value is out of range> 


! If the byte code in the instruction stream is PAS$SK_IGNORE, PASSHANDLER 
simply does a CONTINUE. 


PAS$K_IGNORE=63 


6 
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i Message numbers 3000-3999 are reserved for SeaPascal. 
i (RR RBRAAASABAARRBAARESASASARSALAARAERERERAR ERASERS ESE S SO 
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1+ 
Define Literals which can be used to test for specific groups of messages. 


«LITERAL PASS$K_MSGV2L0=200 ' Lowest V2 message number 

«LITERAL PASSEK_AISGCONTLO=¢00 i Lowest continua fe error 

«LITERAL PASSS$K_MSGCONTHI=999 i Highest continuable error 

LITERAL PASS$K_MSGPF VHI=999 i Highest aoasons with a valid PFV 
«LITERAL PAS$SK-MSGCHKBAS=2000 | Base of run-time checking messages 


4 
Define STATUS codes for EOF and SUCCESS 


LITERAL PASSK_EOF = =1 
»LITERAL PASSK_SUCCESS = 0 
. END 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


= 
MEW O OONAOUE WW -OOONOUS 


4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
d 0 


There were 0 errors, 0 warnin informational messages issued. 
MESSAGE /NOSYMBOLS/LIS=LIS$:PA AEGTXI/OBJCOBIS PASMSGTRY MSRC$:PASMSG 


ENT CORPORATION 
ND PROPRIETARY | 


099 VAx/vMS V4.0 


